home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / itgraph / vb30 / itgdemo / itgdemo3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-15  |  24.7 KB  |  726 lines
  1. VERSION 2.00
  2. Begin Form frmConnectionProperties 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Connection Properties"
  5.    ClientHeight    =   3720
  6.    ClientLeft      =   1128
  7.    ClientTop       =   1608
  8.    ClientWidth     =   6432
  9.    Height          =   4092
  10.    Left            =   1080
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3720
  13.    ScaleWidth      =   6432
  14.    Top             =   1284
  15.    Width           =   6528
  16.    Begin HScrollBar hscLineWidth 
  17.       Height          =   195
  18.       Left            =   1200
  19.       Max             =   100
  20.       TabIndex        =   41
  21.       Top             =   3360
  22.       Width           =   1455
  23.    End
  24.    Begin TextBox edtLineWidth 
  25.       Height          =   285
  26.       Left            =   2700
  27.       MaxLength       =   3
  28.       TabIndex        =   40
  29.       Text            =   "0"
  30.       Top             =   3300
  31.       Width           =   555
  32.    End
  33.    Begin Frame Frame2 
  34.       Caption         =   "Alignment"
  35.       Height          =   1092
  36.       Index           =   1
  37.       Left            =   4920
  38.       TabIndex        =   36
  39.       Top             =   2100
  40.       Width           =   1452
  41.       Begin OptionButton btnTextPosH 
  42.          Caption         =   "Left"
  43.          Height          =   252
  44.          Index           =   0
  45.          Left            =   180
  46.          TabIndex        =   39
  47.          Top             =   300
  48.          Width           =   792
  49.       End
  50.       Begin OptionButton btnTextPosH 
  51.          Caption         =   "Center"
  52.          Height          =   252
  53.          Index           =   1
  54.          Left            =   180
  55.          TabIndex        =   38
  56.          Top             =   540
  57.          Value           =   -1  'True
  58.          Width           =   852
  59.       End
  60.       Begin OptionButton btnTextPosH 
  61.          Caption         =   "Right"
  62.          Height          =   252
  63.          Index           =   2
  64.          Left            =   180
  65.          TabIndex        =   37
  66.          Top             =   780
  67.          Width           =   852
  68.       End
  69.    End
  70.    Begin TextBox edtConnectionId 
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Dialog"
  74.       FontSize        =   7.8
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   312
  78.       Left            =   1380
  79.       TabIndex        =   34
  80.       TabStop         =   0   'False
  81.       Top             =   1800
  82.       Width           =   732
  83.    End
  84.    Begin ComboBox cmbConnectionArrow 
  85.       FontBold        =   -1  'True
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Dialog"
  88.       FontSize        =   7.8
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   288
  92.       Left            =   1620
  93.       Style           =   2  'Dropdown List
  94.       TabIndex        =   8
  95.       Top             =   2880
  96.       Width           =   3192
  97.    End
  98.    Begin PictureBox pctConnectionColor 
  99.       BackColor       =   &H0000FFFF&
  100.       FontBold        =   -1  'True
  101.       FontItalic      =   0   'False
  102.       FontName        =   "MS Dialog"
  103.       FontSize        =   7.8
  104.       FontStrikethru  =   0   'False
  105.       FontUnderline   =   0   'False
  106.       Height          =   192
  107.       Left            =   4680
  108.       ScaleHeight     =   168
  109.       ScaleWidth      =   168
  110.       TabIndex        =   31
  111.       Top             =   1800
  112.       Width           =   192
  113.    End
  114.    Begin TextBox edtConnectionData 
  115.       FontBold        =   -1  'True
  116.       FontItalic      =   0   'False
  117.       FontName        =   "MS Dialog"
  118.       FontSize        =   7.8
  119.       FontStrikethru  =   0   'False
  120.       FontUnderline   =   0   'False
  121.       Height          =   312
  122.       Left            =   3720
  123.       TabIndex        =   28
  124.       TabStop         =   0   'False
  125.       Top             =   1800
  126.       Width           =   732
  127.    End
  128.    Begin TextBox edtConnectionLabel 
  129.       FontBold        =   -1  'True
  130.       FontItalic      =   0   'False
  131.       FontName        =   "MS Dialog"
  132.       FontSize        =   7.8
  133.       FontStrikethru  =   0   'False
  134.       FontUnderline   =   0   'False
  135.       Height          =   672
  136.       Left            =   1560
  137.       MultiLine       =   -1  'True
  138.       TabIndex        =   26
  139.       TabStop         =   0   'False
  140.       Top             =   2160
  141.       Width           =   3252
  142.    End
  143.    Begin Frame Frame2 
  144.       Caption         =   "To"
  145.       FontBold        =   -1  'True
  146.       FontItalic      =   0   'False
  147.       FontName        =   "MS Dialog"
  148.       FontSize        =   7.8
  149.       FontStrikethru  =   0   'False
  150.       FontUnderline   =   0   'False
  151.       Height          =   1692
  152.       Index           =   0
  153.       Left            =   3240
  154.       TabIndex        =   15
  155.       Top             =   60
  156.       Width           =   3132
  157.       Begin TextBox edtConnectToIndex 
  158.          Enabled         =   0   'False
  159.          FontBold        =   -1  'True
  160.          FontItalic      =   0   'False
  161.          FontName        =   "MS Dialog"
  162.          FontSize        =   7.8
  163.          FontStrikethru  =   0   'False
  164.          FontUnderline   =   0   'False
  165.          Height          =   312
  166.          Left            =   2160
  167.          TabIndex        =   20
  168.          TabStop         =   0   'False
  169.          Top             =   180
  170.          Width           =   852
  171.       End
  172.       Begin TextBox edtConnectToHandle 
  173.          Enabled         =   0   'False
  174.          FontBold        =   -1  'True
  175.          FontItalic      =   0   'False
  176.          FontName        =   "MS Dialog"
  177.          FontSize        =   7.8
  178.          FontStrikethru  =   0   'False
  179.          FontUnderline   =   0   'False
  180.          Height          =   312
  181.          Left            =   2160
  182.          TabIndex        =   19
  183.          TabStop         =   0   'False
  184.          Top             =   540
  185.          Width           =   852
  186.       End
  187.       Begin TextBox edtToItemId 
  188.          Enabled         =   0   'False
  189.          FontBold        =   -1  'True
  190.          FontItalic      =   0   'False
  191.          FontName        =   "MS Dialog"
  192.          FontSize        =   7.8
  193.          FontStrikethru  =   0   'False
  194.          FontUnderline   =   0   'False
  195.          Height          =   312
  196.          Left            =   720
  197.          TabIndex        =   18
  198.          TabStop         =   0   'False
  199.          Top             =   900
  200.          Width           =   672
  201.       End
  202.       Begin TextBox edtToItemData 
  203.          Enabled         =   0   'False
  204.          FontBold        =   -1  'True
  205.          FontItalic      =   0   'False
  206.          FontName        =   "MS Dialog"
  207.          FontSize        =   7.8
  208.          FontStrikethru  =   0   'False
  209.          FontUnderline   =   0   'False
  210.          Height          =   312
  211.          Left            =   2340
  212.          TabIndex        =   17
  213.          TabStop         =   0   'False
  214.          Top             =   900
  215.          Width           =   672
  216.       End
  217.       Begin TextBox edtToList 
  218.          Enabled         =   0   'False
  219.          FontBold        =   -1  'True
  220.          FontItalic      =   0   'False
  221.          FontName        =   "MS Dialog"
  222.          FontSize        =   7.8
  223.          FontStrikethru  =   0   'False
  224.          FontUnderline   =   0   'False
  225.          Height          =   312
  226.          Left            =   540
  227.          TabIndex        =   16
  228.          TabStop         =   0   'False
  229.          Top             =   1260
  230.          Width           =   2472
  231.       End
  232.       Begin Label Label10 
  233.          Alignment       =   1  'Right Justify
  234.          Caption         =   "ConnectionToIndex:"
  235.          FontBold        =   -1  'True
  236.          FontItalic      =   0   'False
  237.          FontName        =   "MS Dialog"
  238.          FontSize        =   7.8
  239.          FontStrikethru  =   0   'False
  240.          FontUnderline   =   0   'False
  241.          Height          =   192
  242.          Left            =   180
  243.          TabIndex        =   25
  244.          Top             =   240
  245.          Width           =   1932
  246.       End
  247.       Begin Label Label9 
  248.          Alignment       =   1  'Right Justify
  249.          Caption         =   "ConnectionToHandle:"
  250.          FontBold        =   -1  'True
  251.          FontItalic      =   0   'False
  252.          FontName        =   "MS Dialog"
  253.          FontSize        =   7.8
  254.          FontStrikethru  =   0   'False
  255.          FontUnderline   =   0   'False
  256.          Height          =   192
  257.          Left            =   120
  258.          TabIndex        =   24
  259.          Top             =   600
  260.          Width           =   1992
  261.       End
  262.       Begin Label Label8 
  263.          Caption         =   "ItemId:"
  264.          FontBold        =   -1  'True
  265.          FontItalic      =   0   'False
  266.          FontName        =   "MS Dialog"
  267.          FontSize        =   7.8
  268.          FontStrikethru  =   0   'False
  269.          FontUnderline   =   0   'False
  270.          Height          =   192
  271.          Left            =   120
  272.          TabIndex        =   23
  273.          Top             =   960
  274.          Width           =   552
  275.       End
  276.       Begin Label Label7 
  277.          Caption         =   "ItemData:"
  278.          FontBold        =   -1  'True
  279.          FontItalic      =   0   'False
  280.          FontName        =   "MS Dialog"
  281.          FontSize        =   7.8
  282.          FontStrikethru  =   0   'False
  283.          FontUnderline   =   0   'False
  284.          Height          =   192
  285.          Left            =   1500
  286.          TabIndex        =   22
  287.          Top             =   960
  288.          Width           =   792
  289.       End
  290.       Begin Label Label6 
  291.          Caption         =   "List:"
  292.          FontBold        =   -1  'True
  293.          FontItalic      =   0   'False
  294.          FontName        =   "MS Dialog"
  295.          FontSize        =   7.8
  296.          FontStrikethru  =   0   'False
  297.          FontUnderline   =   0   'False
  298.          Height          =   192
  299.          Left            =   120
  300.          TabIndex        =   21
  301.          Top             =   1320
  302.          Width           =   372
  303.       End
  304.    End
  305.    Begin Frame Frame1 
  306.       Caption         =   "From"
  307.       FontBold        =   -1  'True
  308.       FontItalic      =   0   'False
  309.       FontName        =   "MS Dialog"
  310.       FontSize        =   7.8
  311.       FontStrikethru  =   0   'False
  312.       FontUnderline   =   0   'False
  313.       Height          =   1692
  314.       Left            =   60
  315.       TabIndex        =   3
  316.       Top             =   60
  317.       Width           =   3132
  318.       Begin TextBox edtFromList 
  319.          Enabled         =   0   'False
  320.          FontBold        =   -1  'True
  321.          FontItalic      =   0   'False
  322.          FontName        =   "MS Dialog"
  323.          FontSize        =   7.8
  324.          FontStrikethru  =   0   'False
  325.          FontUnderline   =   0   'False
  326.          Height          =   312
  327.          Left            =   540
  328.          TabIndex        =   13
  329.          TabStop         =   0   'False
  330.          Top             =   1260
  331.          Width           =   2472
  332.       End
  333.       Begin TextBox edtFromItemData 
  334.          Enabled         =   0   'False
  335.          FontBold        =   -1  'True
  336.          FontItalic      =   0   'False
  337.          FontName        =   "MS Dialog"
  338.          FontSize        =   7.8
  339.          FontStrikethru  =   0   'False
  340.          FontUnderline   =   0   'False
  341.          Height          =   312
  342.          Left            =   2340
  343.          TabIndex        =   11
  344.          TabStop         =   0   'False
  345.          Top             =   900
  346.          Width           =   672
  347.       End
  348.       Begin TextBox edtFromItemId 
  349.          Enabled         =   0   'False
  350.          FontBold        =   -1  'True
  351.          FontItalic      =   0   'False
  352.          FontName        =   "MS Dialog"
  353.          FontSize        =   7.8
  354.          FontStrikethru  =   0   'False
  355.          FontUnderline   =   0   'False
  356.          Height          =   312
  357.          Left            =   720
  358.          TabIndex        =   9
  359.          TabStop         =   0   'False
  360.          Top             =   900
  361.          Width           =   672
  362.       End
  363.       Begin TextBox edtConnectFromHandle 
  364.          Enabled         =   0   'False
  365.          FontBold        =   -1  'True
  366.          FontItalic      =   0   'False
  367.          FontName        =   "MS Dialog"
  368.          FontSize        =   7.8
  369.          FontStrikethru  =   0   'False
  370.          FontUnderline   =   0   'False
  371.          Height          =   312
  372.          Left            =   2160
  373.          TabIndex        =   6
  374.          TabStop         =   0   'False
  375.          Top             =   540
  376.          Width           =   852
  377.       End
  378.       Begin TextBox edtConnectFromIndex 
  379.          Enabled         =   0   'False
  380.          FontBold        =   -1  'True
  381.          FontItalic      =   0   'False
  382.          FontName        =   "MS Dialog"
  383.          FontSize        =   7.8
  384.          FontStrikethru  =   0   'False
  385.          FontUnderline   =   0   'False
  386.          Height          =   312
  387.          Left            =   2160
  388.          TabIndex        =   4
  389.          TabStop         =   0   'False
  390.          Top             =   180
  391.          Width           =   852
  392.       End
  393.       Begin Label Label5 
  394.          Caption         =   "List:"
  395.          FontBold        =   -1  'True
  396.          FontItalic      =   0   'False
  397.          FontName        =   "MS Dialog"
  398.          FontSize        =   7.8
  399.          FontStrikethru  =   0   'False
  400.          FontUnderline   =   0   'False
  401.          Height          =   192
  402.          Left            =   120
  403.          TabIndex        =   14
  404.          Top             =   1320
  405.          Width           =   372
  406.       End
  407.       Begin Label Label4 
  408.          Caption         =   "ItemData:"
  409.          FontBold        =   -1  'True
  410.          FontItalic      =   0   'False
  411.          FontName        =   "MS Dialog"
  412.          FontSize        =   7.8
  413.          FontStrikethru  =   0   'False
  414.          FontUnderline   =   0   'False
  415.          Height          =   192
  416.          Left            =   1500
  417.          TabIndex        =   12
  418.          Top             =   960
  419.          Width           =   792
  420.       End
  421.       Begin Label Label3 
  422.          Caption         =   "ItemId:"
  423.          FontBold        =   -1  'True
  424.          FontItalic      =   0   'False
  425.          FontName        =   "MS Dialog"
  426.          FontSize        =   7.8
  427.          FontStrikethru  =   0   'False
  428.          FontUnderline   =   0   'False
  429.          Height          =   192
  430.          Left            =   120
  431.          TabIndex        =   10
  432.          Top             =   960
  433.          Width           =   552
  434.       End
  435.       Begin Label Label1 
  436.          Alignment       =   1  'Right Justify
  437.          Caption         =   "ConnectionFromHandle:"
  438.          FontBold        =   -1  'True
  439.          FontItalic      =   0   'False
  440.          FontName        =   "MS Dialog"
  441.          FontSize        =   7.8
  442.          FontStrikethru  =   0   'False
  443.          FontUnderline   =   0   'False
  444.          Height          =   195
  445.          Left            =   60
  446.          TabIndex        =   7
  447.          Top             =   600
  448.          Width           =   2055
  449.       End
  450.       Begin Label Label2 
  451.          Alignment       =   1  'Right Justify
  452.          Caption         =   "ConnectionFromIndex:"
  453.          FontBold        =   -1  'True
  454.          FontItalic      =   0   'False
  455.          FontName        =   "MS Dialog"
  456.          FontSize        =   7.8
  457.          FontStrikethru  =   0   'False
  458.          FontUnderline   =   0   'False
  459.          Height          =   192
  460.          Left            =   180
  461.          TabIndex        =   5
  462.          Top             =   240
  463.          Width           =   1932
  464.       End
  465.    End
  466.    Begin CommandButton cmdCancel 
  467.       Cancel          =   -1  'True
  468.       Caption         =   "&Cancel"
  469.       FontBold        =   -1  'True
  470.       FontItalic      =   0   'False
  471.       FontName        =   "MS Dialog"
  472.       FontSize        =   7.8
  473.       FontStrikethru  =   0   'False
  474.       FontUnderline   =   0   'False
  475.       Height          =   372
  476.       Left            =   5400
  477.       TabIndex        =   2
  478.       TabStop         =   0   'False
  479.       Top             =   3300
  480.       Width           =   972
  481.    End
  482.    Begin CommandButton cmdDelete 
  483.       Caption         =   "&Delete"
  484.       FontBold        =   -1  'True
  485.       FontItalic      =   0   'False
  486.       FontName        =   "MS Dialog"
  487.       FontSize        =   7.8
  488.       FontStrikethru  =   0   'False
  489.       FontUnderline   =   0   'False
  490.       Height          =   372
  491.       Left            =   3360
  492.       TabIndex        =   1
  493.       TabStop         =   0   'False
  494.       Top             =   3300
  495.       Width           =   972
  496.    End
  497.    Begin CommandButton cmdAccept 
  498.       Caption         =   "&Accept"
  499.       Default         =   -1  'True
  500.       FontBold        =   -1  'True
  501.       FontItalic      =   0   'False
  502.       FontName        =   "MS Dialog"
  503.       FontSize        =   7.8
  504.       FontStrikethru  =   0   'False
  505.       FontUnderline   =   0   'False
  506.       Height          =   372
  507.       Left            =   4380
  508.       TabIndex        =   0
  509.       TabStop         =   0   'False
  510.       Top             =   3300
  511.       Width           =   972
  512.    End
  513.    Begin CommonDialog CMDialog1 
  514.       CancelError     =   -1  'True
  515.       Filter          =   "ITGraph Files (*.ITG)|*.ITG"
  516.       FilterIndex     =   1
  517.       Left            =   420
  518.       Top             =   2460
  519.    End
  520.    Begin Label lblLineWidth 
  521.       Alignment       =   1  'Right Justify
  522.       Caption         =   "LineWidth:"
  523.       Height          =   192
  524.       Left            =   180
  525.       TabIndex        =   42
  526.       Top             =   3360
  527.       Width           =   972
  528.    End
  529.    Begin Label Label15 
  530.       Alignment       =   1  'Right Justify
  531.       Caption         =   "ConnectionId:"
  532.       FontBold        =   -1  'True
  533.       FontItalic      =   0   'False
  534.       FontName        =   "MS Dialog"
  535.       FontSize        =   7.8
  536.       FontStrikethru  =   0   'False
  537.       FontUnderline   =   0   'False
  538.       Height          =   192
  539.       Left            =   60
  540.       TabIndex        =   35
  541.       Top             =   1860
  542.       Width           =   1212
  543.    End
  544.    Begin Label txtNewConnection 
  545.       Caption         =   "txtNewConnection"
  546.       FontBold        =   -1  'True
  547.       FontItalic      =   0   'False
  548.       FontName        =   "MS Dialog"
  549.       FontSize        =   7.8
  550.       FontStrikethru  =   0   'False
  551.       FontUnderline   =   0   'False
  552.       Height          =   192
  553.       Left            =   60
  554.       TabIndex        =   33
  555.       Top             =   3120
  556.       Visible         =   0   'False
  557.       Width           =   1692
  558.    End
  559.    Begin Label Label14 
  560.       Alignment       =   1  'Right Justify
  561.       Caption         =   "ConnectionArrow:"
  562.       FontBold        =   -1  'True
  563.       FontItalic      =   0   'False
  564.       FontName        =   "MS Dialog"
  565.       FontSize        =   7.8
  566.       FontStrikethru  =   0   'False
  567.       FontUnderline   =   0   'False
  568.       Height          =   192
  569.       Left            =   60
  570.       TabIndex        =   30
  571.       Top             =   2940
  572.       Width           =   1512
  573.    End
  574.    Begin Label Label13 
  575.       Caption         =   "ConnectionColor"
  576.       FontBold        =   -1  'True
  577.       FontItalic      =   0   'False
  578.       FontName        =   "MS Dialog"
  579.       FontSize        =   7.8
  580.       FontStrikethru  =   0   'False
  581.       FontUnderline   =   0   'False
  582.       Height          =   192
  583.       Left            =   4920
  584.       TabIndex        =   32
  585.       Top             =   1800
  586.       Width           =   1452
  587.    End
  588.    Begin Label Label12 
  589.       Alignment       =   1  'Right Justify
  590.       Caption         =   "ConnectionData:"
  591.       FontBold        =   -1  'True
  592.       FontItalic      =   0   'False
  593.       FontName        =   "MS Dialog"
  594.       FontSize        =   7.8
  595.       FontStrikethru  =   0   'False
  596.       FontUnderline   =   0   'False
  597.       Height          =   192
  598.       Left            =   2220
  599.       TabIndex        =   29
  600.       Top             =   1860
  601.       Width           =   1392
  602.    End
  603.    Begin Label Label11 
  604.       Caption         =   "ConnectionLabel:"
  605.       FontBold        =   -1  'True
  606.       FontItalic      =   0   'False
  607.       FontName        =   "MS Dialog"
  608.       FontSize        =   7.8
  609.       FontStrikethru  =   0   'False
  610.       FontUnderline   =   0   'False
  611.       Height          =   192
  612.       Left            =   60
  613.       TabIndex        =   27
  614.       Top             =   2220
  615.       Width           =   1452
  616.    End
  617. Sub cmdAccept_Click ()
  618.   Dim fromIx%, toIx%
  619.   fromIx = Val(edtConnectFromIndex.Text)
  620.   toIx = Val(edtConnectToIndex.Text)
  621.   frmPlayground!ITGraph1.ConnectTo(fromIx) = toIx
  622.   frmPlayground!ITGraph1.ConnectFromHandle = Val(edtConnectFromHandle.Text)
  623.   frmPlayground!ITGraph1.ConnectToHandle = Val(edtConnectToHandle.Text)
  624.   frmPlayground!ITGraph1.ConnectionData = Val(edtConnectionData.Text)
  625.   frmPlayground!ITGraph1.ConnectionColor = pctConnectionColor.BackColor
  626.   frmPlayground!ITGraph1.ConnectionArrow = cmbConnectionArrow.ListIndex
  627.   If edtLineWidth.Text = "" Then
  628.     frmPlayground!ITGraph1.ConnectionLineWidth = -1
  629.   Else
  630.     frmPlayground!ITGraph1.ConnectionLineWidth = Val(edtLineWidth.Text)
  631.   End If
  632.   frmPlayground!ITGraph1.ConnectionLabel = edtConnectionLabel.Text
  633.   textPos = 0
  634.   For i = 0 To 2
  635.     If btnTextPosH(i).Value Then
  636.       textPos = textPos + i
  637.     End If
  638.   Next i
  639.   frmPlayground!ITGraph1.ConnectionAlign = textPos
  640.   frmPlayground.Enabled = True
  641.   frmConnectionProperties.Hide
  642. End Sub
  643. Sub cmdCancel_Click ()
  644.   frmPlayground.Enabled = True
  645.   frmConnectionProperties.Hide
  646. End Sub
  647. Sub cmdDelete_Click ()
  648.   Dim fromIx%, toIx%
  649.   fromIx = Val(edtConnectFromIndex.Text)
  650.   toIx = Val(edtConnectToIndex.Text)
  651.   frmPlayground!ITGraph1.RemoveFrom(fromIx) = toIx
  652.   frmPlayground.Enabled = True
  653.   frmConnectionProperties.Hide
  654. End Sub
  655. Sub edtLineWidth_Change ()
  656.   If edtLineWidth.Text <> "" Then
  657.     hscLineWidth.Value = Val(edtLineWidth.Text)
  658.   End If
  659. End Sub
  660. Sub Form_Activate ()
  661.   Dim fromIx%, toIx%
  662.   fromIx = Val(edtConnectFromIndex.Text)
  663.   toIx = Val(edtConnectToIndex.Text)
  664.   edtFromItemId.Text = Format$(frmPlayground!ITGraph1.ItemId(fromIx))
  665.   edtFromItemData.Text = Format$(frmPlayground!ITGraph1.ItemData(fromIx))
  666.   edtFromList.Text = frmPlayground!ITGraph1.List(fromIx)
  667.   edtToItemId.Text = Format$(frmPlayground!ITGraph1.ItemId(toIx))
  668.   edtToItemData.Text = Format$(frmPlayground!ITGraph1.ItemData(toIx))
  669.   edtToList.Text = frmPlayground!ITGraph1.List(toIx)
  670.   If txtNewConnection.Caption = "NEW" Then
  671.     Me.Caption = "New Connection Properies"
  672.     edtConnectionLabel.Text = ""
  673.     edtConnectionId.Text = "????"
  674.     edtConnectionData.Text = "0"
  675.     cmbConnectionArrow.ListIndex = ITG_AHSolid
  676.     pctConnectionColor.BackColor = frmPlayground!ITGraph1.ForeColor
  677.     edtLineWidth.Text = ""
  678.     btnTextPosH(1).Value = True
  679.     cmdDelete.Visible = False
  680.   Else
  681.     Me.Caption = "Connection Properties"
  682.     frmPlayground!ITGraph1.ConnectTo(fromIx) = toIx
  683.     edtConnectFromHandle.Text = Format$(frmPlayground!ITGraph1.ConnectFromHandle)
  684.     edtConnectToHandle.Text = Format$(frmPlayground!ITGraph1.ConnectToHandle)
  685.     edtConnectionLabel.Text = frmPlayground!ITGraph1.ConnectionLabel
  686.     edtConnectionId.Text = Format$(frmPlayground!ITGraph1.ConnectionId)
  687.     edtConnectionData.Text = Format$(frmPlayground!ITGraph1.ConnectionData)
  688.     cmbConnectionArrow.ListIndex = frmPlayground!ITGraph1.ConnectionArrow
  689.     If frmPlayground!ITGraph1.ConnectionColor <> -1 Then
  690.       pctConnectionColor.BackColor = frmPlayground!ITGraph1.ConnectionColor
  691.     Else
  692.       pctConnectionColor.BackColor = frmPlayground!ITGraph1.ForeColor
  693.     End If
  694.     If frmPlayground!ITGraph1.ConnectionLineWidth <> -1 Then
  695.       edtLineWidth.Text = Str$(frmPlayground!ITGraph1.ConnectionLineWidth)
  696.     Else
  697.       edtLineWidth.Text = ""
  698.     End If
  699.     btnTextPosH(frmPlayground!ITGraph1.ConnectionAlign Mod 3).Value = True
  700.     cmdDelete.Visible = True
  701.   End If
  702.   edtConnectionLabel.SetFocus
  703. End Sub
  704. Sub Form_Load ()
  705.   cmbConnectionArrow.Clear
  706.   cmbConnectionArrow.AddItem "ITG_AHNone"
  707.   cmbConnectionArrow.AddItem "ITG_AHSolid"
  708.   cmbConnectionArrow.AddItem "ITG_AHHollow"
  709.   cmbConnectionArrow.AddItem "ITG_AHOutline"
  710.   cmbConnectionArrow.AddItem "ITG_AHSolidCircle"
  711.   cmbConnectionArrow.AddItem "ITG_AHHollowCircle"
  712. End Sub
  713. Sub hscLineWidth_Change ()
  714.   edtLineWidth.Text = hscLineWidth.Value
  715. End Sub
  716. Sub pctConnectionColor_Click ()
  717.   Const CC_RGBINIT = &H1&
  718.   On Error GoTo pctConnectionColor_Error
  719.   CMDialog1.Color = pctConnectionColor.BackColor
  720.   CMDialog1.Flags = CC_RGBINIT
  721.   CMDialog1.Action = 3
  722.   pctConnectionColor.BackColor = CMDialog1.Color
  723. pctConnectionColor_Error:
  724.   Exit Sub
  725. End Sub
  726.